60 SA=828
70 EA=SA+183
80 HS=INT(SA/256):LS=SA-(HS*256)
90 HE=INT(EA/256):LE=EA-(HE*256)
100 FORI=SA TO EA:READD:POKEI,D:NEXT
110 SYS57812"SS 1990",8:POKE193,LS:POKE194,HS:POKE174,LE:POKE175,HE:SYS62954
120 END
200 REM SYS HS,X    X = 1 TO 7   STORE
210 REM
220 REM SYS HS+3,X  X = 1 TO 7   RECALL
230 REM
240 REM SA MUST BE IN OPEN RAM
250 REM IT CAN'T BE UNDER THE ROMS
260 REM
828 DATA 024,234,036,056,008,120,162
835 DATA 000,142,250,255,202,142,251
842 DATA 255,169,096,141,000,255,165
849 DATA 251,072,165,252,072,165,253
856 DATA 072,165,254,072,008,032,253
863 DATA 174,032,158,173,032,170,177
870 DATA 170,208,079,133,251,133,253
877 DATA 152,041,007,240,070,010,010
884 DATA 010,201,040,144,003,105,183
891 DATA 044,105,152,133,254,172,136
898 DATA 002,240,051,132,252,165,001
905 DATA 041,253,133,001,040,162,004
912 DATA 160,000,176,040,177,251,145
919 DATA 253,200,208,249,230,252,230
926 DATA 254,202,208,242,169,216,133
933 DATA 252,162,004,177,251,145,253
940 DATA 200,208,249,230,252,230,254
947 DATA 202,208,242,240,038,104,184
954 DATA 080,034,177,253,145,251,200
961 DATA 208,249,230,252,230,254,202
968 DATA 208,242,162,004,169,216,133
975 DATA 252,177,253,145,251,200,208
982 DATA 249,230,252,230,254,202,208
989 DATA 242,165,001,009,002,133,001
996 DATA 104,133,255,104,133,253,104
1003 DATA 133,252,104,133,251,040,096
1010 DATA 000,000
10000 OPEN15,8,15,"S0:SS 1990 CREATOR":CLOSE15:SAVE"SS 1990 CREATOR",8:END